home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000149_icon-group-sender _Fri Dec 18 08:18:20 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  775b
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id IAA08236
  4.     for icon-group-addresses; Fri, 18 Dec 1998 08:18:13 -0700 (MST)
  5. Message-Id: <199812181518.IAA08236@baskerville.CS.Arizona.EDU>
  6. To: icon-group@optima.CS.Arizona.EDU
  7. Date: Thu, 17 Dec 1998 20:48:53 -0700
  8. From: Cheyenne Wills <cwills@bix.com>
  9. Subject: Re: Small Icon programming problem
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. Woops... you wanted a procedure...
  14.  
  15. my modified humble submission...
  16.  
  17. procedure digsort(v)    # Assumes v is a valid integer
  18.     t := table("")
  19.     o := ""
  20.     every c := !v do \t[c] ||:= c
  21.     every c := !"-0123456789" do o ||:= t[c]
  22.     return integer(o)
  23. end
  24.  
  25.  
  26. Cheyenne Wills
  27.